home *** CD-ROM | disk | FTP | other *** search
/ Champak 48 / cdrom_image.iso / Games / rollerrush / game.dcr / cars_5_carwash space.ls < prev    next >
Encoding:
Text File  |  2007-10-01  |  700 b   |  46 lines
  1. property sd, spriteNum, pParkedOnMe
  2. global gPlacingCar
  3.  
  4. on beginSprite me
  5.   sd = sprite(spriteNum)
  6.   sd.blend = 100
  7.   sd.visible = 0
  8.   sd.locZ = sprite(105).locZ
  9.   pActive = 1
  10. end
  11.  
  12. on mouseEnter me
  13.   sendSprite(710, #GoOver)
  14.   if pParkedOnMe > 0 then
  15.     return 
  16.   end if
  17.   sendSprite(gPlacingCar, #ParkHere, spriteNum)
  18. end
  19.  
  20. on mouseDown me
  21. end
  22.  
  23. on mouseLeave me
  24.   sendSprite(710, #Leave)
  25.   sendSprite(gPlacingCar, #DontParkHere, spriteNum)
  26. end
  27.  
  28. on IParked me, spr
  29.   sprite(109).visible = 1
  30.   pParkedOnMe = spr
  31.   sendSprite(spr, #InCarWash)
  32. end
  33.  
  34. on GetEmpty me
  35.   if pParkedOnMe = 0 then
  36.     return 1
  37.   else
  38.     return 0
  39.   end if
  40. end
  41.  
  42. on ImDone me, spr
  43.   pParkedOnMe = 0
  44.   sprite(109).visible = 0
  45. end
  46.